home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zm.d64 / proc.fillscreen < prev    next >
Text File  |  2007-03-01  |  1KB  |  48 lines
  1. 0010 // ╘HIS PROCEDURE FILLS A GRAPHIC
  2. 0020 // SCREEN WITH THE GIVEN COLOUR
  3. 0030 // MUCH FASTER THAN USING ╞╔╠╠.
  4. 0040 
  5. 0050 // V.1.0 FOR ├╧═┴╠ 2.01 ON ├64
  6. 0060 
  7. 0070 // ┬Y ┬RIAN ╟RAINGER, ╩AN 86,
  8. 0080 // FOR THE ╒╦ ├╧═┴╠ ╙╔╟.
  9. 0090 
  10. 0100 ╨╥╧├ FILLSCREEN(COLOUR) ├╠╧╙┼─
  11. 0110   
  12. 0120   ─┴╘┴ $A9,$00,$A8,$85,$07
  13. 0130   ─┴╘┴ $A9,$E0,$85,$08
  14. 0140   ─┴╘┴ $A9,$FF
  15. 0150   ─┴╘┴ $91,$07,$C8,$D0,$FB
  16. 0160   ─┴╘┴ $E6,$08,$A6,$08
  17. 0170   ─┴╘┴ $E0,$FF,$D0,$F3
  18. 0180   ─┴╘┴ $91,$07
  19. 0190   ─┴╘┴ $C8,$C0,$40,$D0,$F9
  20. 0200   
  21. 0210   ─┴╘┴ $A9,$44,$85,$09
  22. 0220   ─┴╘┴ $A9,$00,$A8,$85,$07
  23. 0230   ─┴╘┴ $A9,$D8,$85,$08
  24. 0240   ─┴╘┴ $A9,-1
  25. 0250   ─┴╘┴ $20,$8A,$C8
  26. 0260   ─┴╘┴ $C8,$D0,$FA
  27. 0270   ─┴╘┴ $E6,$08
  28. 0280   ─┴╘┴ $A6,$08,$E0,$DB,$D0,$F2
  29. 0290   ─┴╘┴ $20,$8A,$C8
  30. 0300   ─┴╘┴ $C8,$C0,$E8,$D0,$F8
  31. 0310   ─┴╘┴ $60
  32. 0320   
  33. 0330   TBUFFR:=$033C; I:=0
  34. 0340   
  35. 0350   ╥┼╨┼┴╘ 
  36. 0360     ╥┼┴─ VALUE
  37. 0370     ╔╞ VALUE=-1 ╘╚┼╬
  38. 0380       VALUE:=(╨┼┼╦($86) ┬╔╘┴╬─ $0F)
  39. 0390       VALUE:=(COLOUR*16) ┬╔╘╧╥ VALUE
  40. 0400     ┼╬─╔╞ 
  41. 0410     ╨╧╦┼ TBUFFR+I,VALUE
  42. 0420     I:+1
  43. 0430   ╒╬╘╔╠ ┼╧─
  44. 0440   
  45. 0450   ╙┘╙ $033C
  46. 0460   
  47. 0470 ┼╬─╨╥╧├ FILLSCREEN
  48.